home *** CD-ROM | disk | FTP | other *** search
/ Let's Learn About Machines / Let's Learn About Machines.iso / mac / Learn about Machines / Learn about Machines.DXR / 00004_continue.ls < prev    next >
Encoding:
Text File  |  1997-09-17  |  364 b   |  16 lines
  1. on mouseDown
  2.   set mySprite to the clickOn
  3.   set myCast to the castNum of sprite mySprite
  4.   repeat while the stillDown
  5.     if rollOver(mySprite) then
  6.       set the castNum of sprite mySprite to myCast + 1
  7.     else
  8.       set the castNum of sprite mySprite to myCast
  9.     end if
  10.     updateStage()
  11.   end repeat
  12.   if rollOver(mySprite) then
  13.     continue()
  14.   end if
  15. end
  16.